Note: This code was to be used as another way of returning 
      information in the form of percentages instead of 
      memory in KB Free... 

' Memory Status Info structure
' Used to get various system memory information
Type MEMORYSTATUS
    dwLength As Long         ' sizeof(MEMORYSTATUS)
    dwMemoryLoad As Long     ' percent of memory in use (between 1 and 100)
    dwTotalPhys As Long      ' bytes of physical memory
    dwAvailPhys As Long      ' free physical memory bytes
    dwTotalPageFile As Long  ' bytes of paging file
    dwAvailPageFile As Long  ' free bytes of paging file 
    dwTotalVirtual As Long   ' user bytes of address space
    dwAvailVirtual As Long   ' free user bytes
End Type

' New code to be implemented for three new display labels...

Dim MemStat  as MEMORYSTATUS
Dim MemData  as Long
Dim TmpData1 as Long
Dim TmpData2 as Long

TmpData1 = MemStat.dwAvailPhys \ 1024
TmpData2 = MemStat.dwTotalPhys \ 1024
MemData = Fix((TmpData1  / TmpData2) * 100)
OptLabel(i) = Str(MemData) & " % in Use"

TmpData1 = MemStat.dwAvailPageFile \ 1024
TmpData2 = MemStat.dwTotalPageFile\ 1024
MemData = Fix((TmpData1  / TmpData2) * 100)
OptLabel(i) = Str(MemData) & " % in Use"

TmpData1 = MemStat.dwAvailVirtual \ 1024
TmpData2 = MemStat.dwTotalVirtual \ 1024
MemData = Fix((TmpData1  / TmpData2) * 100)
OptLabel(i) = Str(MemData) & " % in Use"